home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_09_(08-1984).d64
/
top secret
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
95 lines
30 PRINT CHR$(147)
40 PRINT "THIS IS A TOP SECRET PROGRAM"
60 PRINT
70 PRINT "PRESS <RETURN> AFTER EACH REPLY."
90 PRINT
100 PRINT"WHAT IS YOUR CODE NAME";
110 INPUT N$
120 IF N$ ="" THEN 100
130 PRINTCHR$(147)
140 PRINT "CONGRATULATIONS, "N$"!"
150 PRINT"YOUR CODE NAME IS ACCEPTED."
160 PRINT"NOW, PLEASE TYPE A FOUR DIGIT"
170 PRINT "CODE NUMBER, THEN PRESS <RETURN>."
190 PRINT
200 INPUT "WHAT IS THE NUMBER";N
220 IF N>999 AND N<10000 THEN 290
240 PRINT
250 PRINT "INVALID NUMBER! TRY AGAIN."
270 PRINT
280 GOTO 200
290 PRINT CHR$(147)
300 PRINT "YOUR NAME IS: "N$
310 PRINT
320 PRINT "YOUR NUMBER IS: "N
330 PRINT
340 PRINT "IS THAT RIGHT? (Y/N)"
350 GET A$
360 IF A$ = "" THEN 350
370 IF A$ <> CHR$(89) THEN RUN
380 PRINT CHR$(147)
390 PRINT"O.K., "N$", PRESS <C> TO"
400 PRINT "BEGIN A QUICK HARDWARE CHECK."
420 GET A$
430 IF A$ <> CHR$(67) THEN 420
440 PRINT CHR$(147)
450 FOR T = 1 TO INT(RND(1)*8)+5
460 PRINT "LOCATION #"T"= O.K."
470 FOR D = 1 TO 600
480 NEXT D
490 NEXT T
500 PRINT "LOCATION #"T"=TROUBLE"
510 PRINT
520 PRINT "PRESS <RETURN> FOR HELP."
530 GET A$
540 IF A$ <> CHR$(13) THEN 530
550 PRINTCHR$(147)
560 PRINT N$", DIAGNOSTICS SHOW"
570 PRINT "THAT YOUR COMPUTER HAS A"
580 FOR X = 1 TO 27
590 READ P
600 PRINT CHR$(P);
610 FOR D = 1 TO 400
620 NEXT D
630 NEXT X
640 PRINT
650 PRINT"PLEASE WAIT 15 SECONDS"
660 PRINT "FOR A COMPLETE DIAGNOSIS. TIME:"
690 FOR T = 15 TO 1 STEP -1
700 FOR D = 1 TO 600
710 NEXT D
720 PRINT CHR$(19)
730 FOR X = 1 TO 4
740 PRINT
750 NEXT X
760 PRINT TAB(34);CHR$(20);CHR$(20);CHR$(20);T
770 NEXT T
780 PRINT CHR$(147)
790 READ A,B
800 IF A = -1 THEN 860
810 FOR Z = A TO B
820 POKE Z,160
830 POKE Z+54272,4
840 NEXT Z
850 GOTO 790
860 READ A,B
870 IF A = -1 THEN 930
880 FOR Z = A TO B STEP 40
890 POKE Z,160
900 POKE Z+54272,4
910 NEXT Z
920 GOTO 860
930 GOTO 930
2000 DATA 83,69,86,69,82,69,32,73,78,84,69,82,78,65
2010 DATA 76,32,77,65,76,70,85,78,67,84,73,79,78
2020 DATA 1067,1072,1074,1079,1081,1086,1088,1094
2030 DATA 1227,1232,1234,1239,1241,1246,1488,1494
2040 DATA 1496,1501,1547,1552,1554,1559,1561,1566
2050 DATA 1576,1581,1707,1711,1736,1741,1954,1959
2060 DATA 1961,1966,1968,1974,1976,1981,-1,-1
2070 DATA 1067,1467,1547,1947,1072,1472,1074,1474
2080 DATA 1554,1954,1079,1239,1559,1959,1081,1481
2090 DATA 1561,1961,1284,1324,1365,1405,1086,1246
2100 DATA 1446,1486,1566,1926,1568,1968,1131,1451
2110 DATA 1096,1496,1576,1736,1741,1981,-1,-1